if (!fs::dir_exists('./DATA')) {
warning(glue::glue("Creating directory ./DATA in {getwd()}"))
fs::dir_create('./DATA')
}
if (!fs::file_exists("./DATA/Recensement.csv")) {
warning("Downloading Recensement.csv from https://stephane-v-boucheron.fr/data/Recensement.csv")
download.file('https://stephane-v-boucheron.fr/data/Recensement.csv',
"./DATA/Recensement.csv")
warning("Downloaded!!")
}
df <- readr::read_table("./DATA/Recensement.csv")
##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## AGE = col_double(),
## SEXE = col_character(),
## REGION = col_character(),
## STAT_MARI = col_character(),
## SAL_HOR = col_double(),
## SYNDICAT = col_character(),
## CATEGORIE = col_double(),
## NIV_ETUDES = col_double(),
## NB_PERS = col_double(),
## NB_ENF = col_double(),
## REV_FOYER = col_double()
## )
df |>
glimpse()
## Rows: 599
## Columns: 11
## $ AGE <dbl> 58, 40, 29, 59, 51, 19, 64, 23, 47, 66, 26, 23, 54, 44, 56,…
## $ SEXE <chr> "F", "M", "M", "M", "M", "M", "F", "F", "M", "F", "M", "F",…
## $ REGION <chr> "NE", "W", "S", "NE", "W", "NW", "S", "NE", "NW", "S", "NE"…
## $ STAT_MARI <chr> "C", "M", "C", "D", "M", "C", "M", "C", "M", "D", "M", "C",…
## $ SAL_HOR <dbl> 13.25, 12.50, 14.00, 10.60, 13.00, 7.00, 19.57, 13.00, 20.1…
## $ SYNDICAT <chr> "non", "non", "non", "oui", "non", "non", "non", "non", "ou…
## $ CATEGORIE <dbl> 5, 7, 5, 3, 3, 3, 9, 1, 8, 5, 2, 5, 3, 2, 2, 2, 5, 9, 2, 2,…
## $ NIV_ETUDES <dbl> 43, 38, 42, 39, 35, 39, 40, 43, 40, 40, 42, 40, 34, 40, 43,…
## $ NB_PERS <dbl> 2, 2, 2, 4, 8, 6, 3, 2, 3, 1, 3, 2, 6, 5, 4, 4, 3, 2, 3, 2,…
## $ NB_ENF <dbl> 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0,…
## $ REV_FOYER <dbl> 11, 7, 15, 7, 15, 16, 13, 11, 12, 8, 10, 8, 13, 11, 14, 7, …